home *** CD-ROM | disk | FTP | other *** search
- //---------------------------------------------------------------------
- #include <vcl.h>
- #pragma hdrstop
-
- #include "Convert.h"
- #include "Main.h"
- //---------------------------------------------------------------------
- #pragma resource "*.dfm"
- TfrmConvert *frmConvert;
- //---------------------------------------------------------------------
- __fastcall TfrmConvert::TfrmConvert(TComponent* AOwner)
- : TForm(AOwner)
- {
- }
- //---------------------------------------------------------------------
- void __fastcall TfrmConvert::FormShow(TObject *Sender)
- {
- rgCnannels->ItemIndex = frmMain->AudioEditor1->FileInfo->Channels - 1;
- switch (frmMain->AudioEditor1->FileInfo->Frequency){
- case FQ_6_KHZ: rgFrequency->ItemIndex = 0; break;
- case FQ_8_KHZ: rgFrequency->ItemIndex = 1; break;
- case FQ_11_KHZ: rgFrequency->ItemIndex = 2; break;
- case FQ_12_KHZ: rgFrequency->ItemIndex = 3; break;
- case FQ_16_KHZ: rgFrequency->ItemIndex = 4; break;
- case FQ_22_KHZ: rgFrequency->ItemIndex = 5; break;
- case FQ_24_KHZ: rgFrequency->ItemIndex = 6; break;
- case FQ_32_KHZ: rgFrequency->ItemIndex = 7; break;
- case FQ_44_KHZ: rgFrequency->ItemIndex = 8; break;
- case FQ_48_KHZ: rgFrequency->ItemIndex = 9; break;
- default: rgFrequency->ItemIndex = -1; break;
- }
- }
- //---------------------------------------------------------------------------
-
- void __fastcall TfrmConvert::OKBtnClick(TObject *Sender)
- {
- ChannelsConstants Chan = (ChannelsConstants)rgCnannels->ItemIndex + 1;
- switch (rgFrequency->ItemIndex){
- case 0: frmMain->AudioEditor1->ConvertSampleType(FQ_6_KHZ, Chan); break;
- case 1: frmMain->AudioEditor1->ConvertSampleType(FQ_8_KHZ, Chan); break;
- case 2: frmMain->AudioEditor1->ConvertSampleType(FQ_11_KHZ, Chan); break;
- case 3: frmMain->AudioEditor1->ConvertSampleType(FQ_12_KHZ, Chan); break;
- case 4: frmMain->AudioEditor1->ConvertSampleType(FQ_16_KHZ, Chan); break;
- case 5: frmMain->AudioEditor1->ConvertSampleType(FQ_22_KHZ, Chan); break;
- case 6: frmMain->AudioEditor1->ConvertSampleType(FQ_24_KHZ, Chan); break;
- case 7: frmMain->AudioEditor1->ConvertSampleType(FQ_32_KHZ, Chan); break;
- case 8: frmMain->AudioEditor1->ConvertSampleType(FQ_44_KHZ, Chan); break;
- case 9: frmMain->AudioEditor1->ConvertSampleType(FQ_48_KHZ, Chan); break;
- }
- }
- //---------------------------------------------------------------------------
-
-